home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / WebcamViewer.dxpack / {C84953FB-B073-4D8E-800C-95CE42979B7C}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-05-19  |  4KB  |  113 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[
  5. Dim updateopt
  6. Dim URL
  7.  
  8. 'Called when the script is executed
  9. Sub Object_OnScriptEnter
  10.     Set Sh = CreateObject("WScript.Shell")
  11.     On Error Resume Next
  12.     URL = Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\URL")
  13.     If err.number <> 0 Then
  14.         URL = "http://www.webviews.co.uk/liveimages/trafalgarsq.jpg"
  15.         err.clear
  16.     End If
  17.  
  18.  
  19.     updateopt = CInt(Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\Interval"))
  20.     If err.number <> 0 Then
  21.         updateopt = 4
  22.         err.clear
  23.     End If
  24.     UpdateInterval
  25.  
  26.     LeftPos = CInt(Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\Left"))
  27.     TopPos = CInt(Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\Top"))
  28.     If err.number <> 0 Then
  29.         LeftPos = 100
  30.         TopPos = 100
  31.         err.clear
  32.     End If
  33. Set Sh = nothing
  34. On Error GoTo 0
  35.     DesktopX.Object("webcam_ctrl").move LeftPos, TopPos
  36.     DesktopX.Object("webcam").move LeftPos, DesktopX.Object("webcam_ctrl").bottom
  37.     DesktopX.Object("webcam").visible = True
  38.     DesktopX.Object("webcam_ctrl").visible = True
  39. End Sub
  40.  
  41. Sub TimeShow
  42.     Object.SetTimer 124, 20
  43.     DesktopX.Object("updateint").Opacity = 100
  44.     DesktopX.Object("updateint").visible = True
  45. End Sub
  46.  
  47. Sub TimePlus
  48.     If updateopt < 7 Then
  49.         updateopt = updateopt+1
  50.         UpdateInterval
  51.     End If
  52.     TimeShow
  53. End Sub
  54.  
  55. Sub TimeMinus
  56.     If updateopt >1 Then
  57.         updateopt = updateopt-1
  58.         UpdateInterval
  59.     End If
  60.     TimeShow
  61. End Sub
  62.  
  63. Sub UpdateInterval
  64.     If updateopt = 1 Then
  65.         DesktopX.Object("updateint").Text = "Updates every 5 seconds"
  66.         Object.SetTimer 123, 5000
  67.     ElseIf updateopt = 2 Then
  68.         DesktopX.Object("updateint").Text = "Updates every 10 seconds"
  69.         Object.SetTimer 123, 10000
  70.     ElseIf updateopt = 3 Then
  71.         DesktopX.Object("updateint").Text = "Updates every 20 seconds"
  72.         Object.SetTimer 123, 20000
  73.     ElseIf updateopt = 4 Then
  74.         DesktopX.Object("updateint").Text = "Updates every 30 seconds"
  75.         Object.SetTimer 123, 30000
  76.     ElseIf updateopt = 5 Then
  77.         DesktopX.Object("updateint").Text = "Updates every minute"
  78.         Object.SetTimer 123, 60000
  79.     ElseIf updateopt = 6 Then
  80.         DesktopX.Object("updateint").Text = "Updates every 5 minutes"
  81.         Object.SetTimer 123, 300000
  82.     ElseIf updateopt = 7 Then
  83.         DesktopX.Object("updateint").Text = "Never updates"
  84.         Object.KillTimer 123
  85.     End If
  86. End Sub
  87.  
  88. Sub Object_OnTimer124
  89.   newop = DesktopX.Object("updateint").Opacity - 1
  90.     If newop>0 Then 
  91.         DesktopX.Object("updateint").Opacity = newop
  92.     Else
  93.         DesktopX.Object("updateint").visible = False
  94.         Object.KillTimer 124
  95.     End If
  96. End Sub
  97.  
  98. Sub Object_OnTimer123
  99.     If URL <> "" Then
  100.         DesktopX.Object("webcam").Picture = URL
  101.     End If
  102. End Sub
  103.  
  104. 'Called when the script is terminated
  105. Sub Object_OnScriptExit
  106.     Set Sh = CreateObject("WScript.Shell")
  107.     Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\Top", DesktopX.Object("webcam_ctrl").Top
  108.     Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\Left", DesktopX.Object("webcam_ctrl").Left
  109.     Sh.RegWrite "HKCU\SOFTWARE\Stardock\DesktopX\Widget\DXCam\URL", URL
  110.     Set Sh = Nothing
  111.     Object.KillTimer 123
  112. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>330</EditorLeft><EditorTop>362</EditorTop><EditorRight>1236</EditorRight><EditorBottom>1039</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  113.